home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / mee / csi / changeme.bas next >
Encoding:
BASIC Source File  |  1994-10-06  |  1.4 KB  |  64 lines
  1. ' Shared database constants
  2.  
  3. Global Const USERNAME = "sa"
  4. Global Const PASSWORD = ""
  5. Global Const DBNAME = "Pubs"
  6. Global Const HOSTNAME = "VBitsMachine"      ' informational
  7. Global Const APPNAME = "TestPerf"           ' informational
  8.  
  9. ' Constants for VBSQL
  10.  
  11. Global Const SERVER = "jetsvrnt"             ' DSN for ODBC
  12.  
  13.  
  14. ' Constants for ODBC
  15. Global Const DSN = "jetpubs"
  16.  
  17. ' Constants for Jet
  18. Global Const JETDB = "perftest.mdb"
  19.  
  20.  
  21. ' Queries to test.
  22.  
  23. ' Modify Form_Load() and cboPreBuilt_Click() to add more queries
  24.  
  25. ' Modify each query by changing the string constants below.
  26. ' Don't forget trailing spaces!
  27.  
  28. ' Query 1
  29.  
  30. Global Const q1Name = "Simple Like"
  31. Global Const q1_1 = "Select * from authors"
  32. Global Const q1_2 = ""
  33. Global Const q1_3 = ""
  34. Global Const q1_4 = ""
  35. Global Const q1_5 = ""
  36.  
  37. ' Query 2
  38.  
  39. Global Const q2Name = "Simple Join"
  40. Global Const q2_1 = "SELECT * "
  41. Global Const q2_2 = "FROM authors, titles, titleauthor "
  42. Global Const q2_3 = "WHERE authors.au_id = titleauthor.au_id "
  43. Global Const q2_4 = "AND titleauthor.title_id = titles.title_id"
  44. Global Const q2_5 = ""
  45.  
  46. ' Query 3
  47.  
  48. Global Const q3Name = "(Empty)"
  49. Global Const q3_1 = ""
  50. Global Const q3_2 = ""
  51. Global Const q3_3 = ""
  52. Global Const q3_4 = ""
  53. Global Const q3_5 = ""
  54.  
  55. ' Query 4
  56.  
  57. Global Const q4Name = "(Empty)"
  58. Global Const q4_1 = ""
  59. Global Const q4_2 = ""
  60. Global Const q4_3 = ""
  61. Global Const q4_4 = ""
  62. Global Const q4_5 = ""
  63.  
  64.